Module broadcastConnections
    Public Sub handleBroadcasts()
        Dim serverName As String
        Dim serverIP As String
        Dim msg As Byte()
        Dim data As Byte()

        Try
            While True
                data = broadcastSocket.Receive(broadcastEndPoint)
                serverName = System.Net.Dns.GetHostName()
                serverIP = Net.Dns.GetHostEntry(serverName).AddressList(0).ToString
                msg = System.Text.Encoding.ASCII.GetBytes(serverName & "::" & serverIP & "::" & ern_serverPort)
                broadcastSocket.Send(msg, msg.Length, broadcastEndPoint)
            End While
        Catch
        End Try
    End Sub
End Module
